home *** CD-ROM | disk | FTP | other *** search
/ Pornodelic / Pornodelic - Disc 2.iso / pc / data / script.cst / 00009_ÅwCONFIG WINDOWÇÃäJï¬ÅBÅx.ls < prev    next >
Encoding:
Text File  |  1998-03-05  |  585 b   |  26 lines
  1. on BeginMyConfig X,Y,W,H
  2.   global myConfig
  3.   if objectP(myConfig) then
  4.     forget myConfig
  5.   end if
  6.   set horzOrigin = the stageleft + X
  7.   set vertOrigin = the stageTop + Y
  8.   set myWindowRect = rect(horzOrigin,vertOrigin,horzOrigin+W,vertOrigin+H)
  9.   set myConfig = window "CONFIG"
  10.   set the rect of myConfig = myWindowRect
  11.   set the fileName of myConfig = "CONFIG"
  12.   set the titleVisible of myConfig = TRUE
  13.   set the windowType of myConfig  = 4
  14. end
  15.  
  16. on StopMyConfig
  17.   FinishMyConfig
  18. end
  19.  
  20. on FinishMyConfig
  21.   global myConfig
  22.   if objectP(myConfig) then
  23.     forget myConfig
  24.   end if
  25. end
  26.